This is METAFONT, WAITS Version -80.0 (INIMF)  4 MAY 1984 01:13
**font1
(FONT1.MF[MF,DEK] (FONT1B.MF[MF,DEK])
stop
! Isolated expression.
p.2,l.3 stop;
              % temporary patch
? iautorounding:=0;
! Interruption.
<to be read again> 
                   &
stroke->...0)}fi&z(SUFFIX0)r..z(SUFFIX0)l&
                                          cycle;showit;
char.U->...(0,1);stroke(1,2,0.2,0.05,0.05)
                                          ;curve(2,3,4);curve(4,5,6);...
test->...ow:=3;init.boldx(1);clear;(TEXT3)
                                          ;"boldx";shipit;else:openwi...
p.2,l.44 test(char.U)
                     ;
? x
Output written on FONT1.GF[MF,DEK] (11 characters, 14476 bytes).